Public Class ParametroAtividade

    Private strIdEscopo As String
    Private strIdAtividade As String
    Private strRodada As String

    Public Sub New(ByVal strIdEscopo As String, ByVal strIdAtividade As String, ByVal strRodada As String)

        Me.strIdEscopo = strIdEscopo
        Me.strIdAtividade = strIdAtividade
        Me.strRodada = strRodada
    End Sub

    Public Sub setIdEscopo(ByVal IdEscopo As String)
        strIdEscopo = IdEscopo
    End Sub

    Public Function getIdEscopo() As String
        getIdEscopo = strIdEscopo
    End Function

    Public Sub setIdAtividade(ByVal IdAtividade As String)
        strIdAtividade = IdAtividade
    End Sub

    Public Function getIdAtividade() As String
        getIdAtividade = strIdAtividade
    End Function

    Public Sub setRodada(ByVal Rodada As String)
        strRodada = Rodada
    End Sub

    Public Function getRodada() As String
        getRodada = strRodada
    End Function


End Class
